home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpong1a / cdmusic.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-09  |  420 b   |  23 lines
  1. Attribute VB_Name = "CDMusic"
  2. Public myCD As CDXVBCD
  3. Private nTracks As Long
  4.  
  5. Public Sub InitCDMusic()
  6.     Set myCD = New CDXVBCD
  7.     myCD.ReadyDevice
  8.     nTracks = myCD.GetNumTracks()
  9.     myCD.SeekCDtoX 2
  10. End Sub
  11.  
  12. Public Sub PlayTrack()
  13.     Dim tn As Long
  14.     
  15.     tn = (Rnd * 18) + 1
  16.     myCD.SeekCDtoX CInt(tn)
  17. End Sub
  18.  
  19. Public Sub TerminateCDMusic()
  20.     myCD.StopPlay
  21.     myCD.UnloadAll
  22. End Sub
  23.